﻿Module Module1
  Sub Main()

    ' primo test
    Dim int As Integer = 44
    Dim bool As Boolean
    bool = CType(int, Boolean)
    Console.WriteLine(bool)   ' Vero
    ' secondo test
    Dim int2 As Integer = 0
    Dim bool2 As Boolean
    bool2 = CType(int2, Boolean)
    Console.WriteLine(bool2)  ' Falso
    Console.ReadLine()

  End Sub
End Module
